;Paso1: (Load 'Pruebas)
;Paso2: Result
;Paso3: Comparar

(setq result 

(list
'(debe dar 2 a c 69 33 c 77 -1)

(eval '2 NIL)


(eval 'a NIL)


(eval 'c '(a 69))


(eval 'a '(a 69))

(eval 'b '(a 69 b 33))

(eval 'c '(a 69 b 33))

(eval 'c '(a 69 b 33 c 77))

(eval -1 '(a 69 b 33 c 77))


'(Booleanas y quote)
'(debe dar T NIL T T NIL 2 (2 3) (A B) )

(eval '(and a b)  '(a T b T d 77))

(eval '(and a b)  '(a T b NIL d 77))

(eval '(or a b)  '(a T b NIL d 77))

(eval '(or a b)  '(a 22 b NIL d 77))

(eval '(or a b)  '(a NIL b NIL d 77))

(eval '(quote 2)  '(a 2 b 2 d 77))

(eval '(quote (2 3))  '(a 2 b 2 d 77))

(eval '(quote (a b))  '(a 2 b 2 d 77))    

'(Resto de pruebas)
'(Debe dar 3 6 )


(eval '(+ 1 2)  NIL)

;(eval '(+ a b)  NIL)

(eval '(+ a b)  '(a 2 b 4))

;(eval '(+ a b)  '(a 2 c 4))

'(Otras pruebas)
'(Debe dar A A (B C))


(eval '(car '(a b c)) NIL )

(eval '((car '(car cdr)) '(a b c)) NIL )
                                     
(eval '((car '(cdr cdr)) '(a b c)) NIL ) 


))